(vc-dired-reformat-line): Display eight character user names correctly.

diff --git a/lisp/vc.el b/lisp/vc.el
index fa38ca4f0d53b414f31095ab5d2af64a3d34aad5..902367e5ac4d157d32c250b484e629e2029dda68 100644 (file)
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -1138,7 +1138,7 @@ on a buffer attached to the file named in the current Dired buffer line."
    (t
     (if x (setq x (concat "(" x ")")))
     (if (re-search-forward "\\([0-9]+ \\).................\\( .*\\)" nil 0)
-       (let ((rep (substring (concat x "                 ") 0 9)))
+       (let ((rep (substring (concat x "                 ") 0 10)))
          (replace-match (concat "\\1" rep "\\2") t)))
     )))